O+80 RET
OI!:
  PUSH  HL
  LD  BC,3000H+78
  LD  A,10
KROLOOP0:
  PUSH   AF
  LD  A,(HL)
  PUSH  HL

  OUT (C),A  INC BC  OUT (C),A

  LD  DE,79
  LD  HL,BC
  ADD HL,DE
  LD  BC,HL

  OUT (C),A  INC BC  OUT (C),A

  LD  HL,BC
  ADD HL,DE
  LD  BC,HL

  INC DE        ;DE=80
  POP HL
  ADD HL,DE

  POP AF
  DEC A
  JP  NZ,KROLOOP0

  POP HL
  INC HL
  LD  (ARCPOINT),HL
ARC_EXIT
  RET

DMASCR:
  